rijight.c - EXHIBIT G 



# Copyright 1997 Silicon Graphics, Inc. ALL RIGHTS RESERVED. 
# 

# UNPUBLISHED -- Rights reserved under the copyright laws of the United 

# States. Use of a copyright notice is precautionary only and does not 

# imply publication or disclosure. 
# 

# THIS SOFTWARE CONTAINS CONFIDENTIAL AND PROPRIETARY INFORMATION OF 

# SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION, DISTRIBUTION, OR 

# DISCLOSURE IS STRICTLY PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN 

# PERMISSION OF SILICON GRAPHICS, INC. 

#include <stdio.h> 
#include <strings.h> 
#include <math.h> 
#include "ri.h" 
#include "ri_state.h" 
#include "ri_shader . h" 
#include <GL/gl.h> 

/* lightshader is a linked list of light source shaders held outside 
the state defined in the renderman interface. it is initialized 
with the four default light shaders from the renderman interface -- 
ambientlight, distantlight, pointlight, and spotlight (which are 
defined immediately below) . */ 

static Shader *lightshader = NULL; 

/* the renderman interface allows an indefinite number of lights to 
be active at any time; the lights may be either area lights or 
point lights. multiple lights may use the same light shader, so 
the light list is kept separate from the light shader list. the 
lights are kept in an linked list, and each light keeps its own 
light shader and corresponding parameters. we must break up the 
lights into groups of a number equal to or less than the hardware 
supported number of lights. the total light contribution is 
obtained by making multiple passes over the scene for each block 
of lights and accumulating the results. 

to return a handle to the application, we simply cast the pointer 
to a light source structure to RtLightHandle . */ 

int light_off = 0; 

void light_enable (void) 

{ 

light_off |= 0x2; 

if( getenv( "FRAGMENT") ) { 

glEnable ( GL_FRAGMENT_L I GHT ING_SG I X ) ; 

glLightEnviSGIX (GL_LIGHT_ENV_MODE_SGIX, GL_REPLACE) ; 
} else { 

glEnable (GL_LIGHTING) ; 

} 

} 



void light_disable (void) 

{ 

light_off &= -0x2; 

if( getenv ( "FRAGMENT" ) ) { 

glDisable ( GL_FRAGMENT_L I GHT ING_SG I X ) ; 
} else { 

glDisable (GL_LIGHTING) ; 

} 



void material_set ( float *a, float *d, float *s, float n) 

{ 

/* scale up to mimic prman default */ 
n *= 8.; 

/* clamp for opengl */ 
if( n>128. ) 
n = 128; 



glMaterialfv ( G L_FRON T_AN D_B AC K , GL_AMBIENT, a) ; 
glMaterialfv ( G L_FRON T_AN D_B AC K , GL_DIFFUSE, d) ; 
glMaterialfv (GL_FRONT_AND_BACK, GL_SPECULAR, s) ; 
glMaterialf (GL_FRONT_AND_BACK, GL_SHININESS , n) ; 

glFragmentMaterialfvSGIX ( G L_FRON T_AN D_B AC K , GL_AMBIENT, a) ; 
glFragmentMaterialfvSGIX ( G L_FRON T_AN D_B AC K , GL_DIFFUSE, d) ; 
glFragmentMaterialfvSGIX (GL_FRONT_AND_BACK, GL_SPECULAR, s) ; 
glFragmentMaterialfSGIX (GL_FRONT_AND_BACK, GL_SHININESS , n) ; 



void light_set ( float *a, float *d, float *s, float *p, float att, float cut) 

{ 

gl Light fv (GL_LIGHT0 , GL_AMBIENT, a); 

gl Light fv (GL_LIGHT0 , GL_DIFFUSE, d) ; 

gl Light fv (GL_LIGHT0 , GL_SPECULAR, s); 

gl Light fv (GL_LIGHT0 , GL_POSITION, p) ; 

gl Light f (GL_LIGHT0 , GL_CONSTANT_ATTENUATION, 0.); 

gl Light f (GL_LIGHT0 , GL_LINEAR_ATTENUATION, 0.); 

gl Light f (GL_LIGHT0 , GL_QUADRAT I C_ATTENUAT I ON , att); 

gl Light f (GL_LIGHT0 , GL_SPOT_CUTOFF, cut); 

glEnable (GL_LIGHT0 ) ; 



gl Fragment Light fvSG IX (GL_FRAGMENT_LIGHTO_SGIX, GL_AMBIENT, a) ; 
gl Fragment Light fvSG IX (GL_FRAGMENT_LIGHTO_SGIX, GL_DIFFUSE, d) ; 
gl Fragment Light fvSG IX (GL_FRAGMENT_LIGHTO_SGIX, GL_SPECULAR, s); 
gl Fragment Light fvSG IX (GL_FRAGMENT_LIGHTO_SGIX, GL_POSITION, p) ; 
glFragmentLightf SGIX (GL_FRAGMENT_LIGHTO_SGIX, GL_CONSTANT_ATTENUATION, 0 
glFragmentLightf SGIX (GL_FRAGMENT_LIGHTO_SGIX, GL_LINEAR_ATTENUATION, 0 . ) 
glFragmentLightf SGIX (GL_FRAGMENT_LIGHTO_SGIX, GL_QUADRAT I C_ATTENUAT I ON , 
att) ; 

glFragmentLightf SGIX (GL_FRAGMENT_LIGHTO_SGIX, GL_SPOT_CUTOFF, cut) ; 
glEnable (GL_FRAGMENT_LIGHTO_SGIX) ; 



void spotlight_set ( float *dir, float falloff, float cutoffdelta) 

{ 

gl Light fv (GL_LIGHT0 , GL_SPOT_DIRECTION, dir); 

gl Light f (GL_LIGHT0 , GL_SPOT_EXPONENT, falloff); 

gl Light f (GL_LIGHT0 , GL_SPOT_CUTOFF_DELTA_SGIX, cutoffdelta); 

gl Fragment Light fvSG IX (GL_FRAGMENT_LIGHTO_SGIX, GL_SPOT_DIRECTION, dir) ; 

gl Fr agmen t Light f SGI X (GL_FRAGMENT_LIGHTO_SGIX, GL_SPOT_EXPONENT, falloff) ; 

glFragmentLightfSGIX (GL_FRAGMENT_LIGHTO_SGIX, GL_SPOT_CUTOFF_DELTA_SGIX, 
cutoffdelta) ; 
} 

/*ARGSUSED*/ 

void rile_blacklight (unsigned char *PC) 

{ 

float zero [4] = {0., 0., 0., 0. }; 

light_set (zero, zero, zero, zero, 0 . , 180 . ) ; 

} 

void rile_ambientlight (unsigned char *PC) 

{ 

RtFloat *d = (RtFloat *) PC- 
float color [4], intensity; 
float zero [4] = {0., 0., 0., 0. }; 

intensity = *d++; 
color [0] = *d++; 
color [1] = *d++; 
color [2] = *d++; 
color [3] = 1.; 

color [0] *= intensity; 
color [1] *= intensity; 
color [2] *= intensity; 



_light_set (color, zero, zero, zero, 0 . , 180 . ) ; 



} 



/*ARGSUSED*/ 

void * rilc_ambientlight (char *name, Rtlnt n, RtToken tokens [], RtPointer 

values [ ] ) 
{ 

RtFloat *t; 
int i, size; 

size = 4*sizeof (RtFloat) ; 

t = (RtFloat *) ri_malloc (size) ; 

if (t == NULL) 

return NULL; 

t[0] = 1.; 

t[l] = 1.; 

t[2] = 1.; 

t[3] = 1.; 



for( i=0; i<n; i++ ) { 



if( tokens [i]==RI_INTENSITY ) { 

t[0] = * (float *)values[i]; 
} else if( tokens [i]==RI_LIGHTCOLOR ) { 

t[l] = ((float *) values [i] ) [0] ; 

t[2] = ((float *) values [i] ) [1] ; 

t[3] = ((float *) values [i] ) [2] ; 

} 

} 

return ( (void *)t ) ; 

} 

/*ARGSUSED*/ 

void * riim_ambientlight (char 

values [ ] ) 
{ 

float color [4], intensity; 
int i; 

float zero[4] = {0., 0., 0 

intensity = 1 . ; 
color [0] = 1.; 
color [1] = 1.; 
color [2] = 1.; 
color [3] = 1.; 

for( i=0; i<n; i++ ) { 

if( tokens [i]==RI_INTENSITY ) { 

intensity = * (float *) values [ i ] ; 
} else if( tokens [i]==RI_LIGHTCOLOR ) { 
color[0] = ((float *) values [ i ])[ 0 ] ; 
color[l] = ((float *) values [ i ])[ 1 ] ; 
color[2] = ((float *) values [ i ])[ 2 ] ; 

} 

} 

color [0] *= intensity; 
color [1] *= intensity; 
color [2] *= intensity; 

light_set (color, zero, zero, zero, 0 . , 180 . ) ; 

return NULL; 

} 

void rile_distantlight (unsigned char *PC) 

{ 

RtFloat *d = (RtFloat *) PC- 
float lpos[4], color[4]; 
float intensity = 1 . ; 
float from [3] = { 0., 0., 0. }; 
float to [3] = { 0., 0., 1. }; 
float zero [4] = {0., 0., 0., 0. }; 



*name, Rtlnt n, RtToken tokens [], RtPointer 



., 0.}; 



intensity = *d++; 
color [0] = *d++; 
color [1] = *d++; 



color [2 ] 


= *d++; 


color [3] 




from[0] 


= *d++; 


from[l] 


= *d++; 


from [2] 


= *d++; 


to[0] = 


*d++; 


to[l] = 


*d++; 


to[2] = 


*d++; 


color [0] 


*= intensity; 


color [ 1 ] 


*= intensity; 


color [2 ] 


*= intensity; 


/* negated in renderman 


lpos [0] 


= from[0] -to [0] 


lpos [1] 


= from[l] -to [1] 


lpos [2] 


= from [2] -to [2] 


lpos [3] 


= 0.; 



_light_set (zero, color, color, lpos, 0 . , 180 . ) ; 



/*ARGSUSED*/ 

void * rilc_distantlight (char *name, Rtlnt n, RtToken tokens [], RtPointer 

values [ ] ) 
{ 

RtFloat *t; 
int i, size; 

size = 10*sizeof (RtFloat) ; 

t = (RtFloat *) ri_malloc (size) ; 

if (t == NULL) 

return NULL; 



t[0] 




1 . 


t[l] 




1 . 


t[2] 




1 . 


t[3] 




1 . 


t[4] 




0 . 


t[5] 




0 . 


t[6] 




0 . 


t[7] 




0 . 


t[8] 




0 . 


t[9] 




1 . 


for ( 


i= 


= 0; 



i<n; i++ ) { 



if( tokens [i] ==RI_INTENSITY ) { 
t[0] = * (float *)values[i]; 
} else if( tokens [i]==RI_LIGHTCOLOR ) { 
t[l] = ((float *) values [i] ) [0] ; 
t[2] = ((float *) values [i] ) [1] ; 
t[3] = ((float *) values [i] ) [2] ; 
} else if( tokens [i]==RI_FROM ) { 
t[4] = ((float *) values [i] ) [0] ; 
t[5] = ((float *) values [i] ) [1] ; 
t[6] = ((float *) values [i] ) [2] ; 
} else if( tokens [i]==RI_TO ) { 



t[7] 
t[8] 
t[9] 



( (float 
( (float 
( (float 



lvalues [i] ) [0] ; 
lvalues [i] 1 [1] ; 
lvalues [i] 1 [2] ; 



return ( (void *)t 



/*ARGSUSED*/ 

void * riim_distantlight (char 

values [ ] 1 
{ 

float lpos[4], color [4]; 
float intensity = 1 . ; 
float from [3] = { 0., 0., 0. 
float to [3] = { 0., 0., 1. }; 
int i; 

float zero[4] = {0., 0., 0., 



*name, Rtlnt n, RtToken tokens [], RtPointer 



intensity = ] 
color[0] = 1, 
color[l] = 1, 
color[2] = 1, 
color[3] = 1, 
from[0] = 0.; 
from[l] = 0.; 
from [2] = 0.; 
to[0] = 0.; 
to[l] = 0.; 
to [2] = 1.; 



for( i=0; i<n; i++ 1 { 

if( tokens [i]==RI_INTENSITY 1 { 

intensity = * (float * 1 values [ i ] ; 
} else if( tokens [i]==RI_LIGHTCOLOR 1 

color[0] = ((float * 1 values [ i ] 1 [ 0 ] 

color[l] = ((float * 1 values [ i ] 1 [ 1 ] 

color[2] = ((float * 1 values [ i ] 1 [ 2 ] 
} else if( tokens [i]==RI_FROM 1 { 

from[0] = ((float *) values [i ])[ 0 ] ; 

from[l] = ((float *) values [i ])[ 1 ] ; 

from [2] = ((float *) values [i ]) [2 ] ; 
} else if( tokens [i]==RI_TO 1 { 

to[0] = ((float *1 values [i] 1 [0] 

to[l] = ((float 

to[2] = ((float 



*) values [i] 1 [1] 
*) values [i] 1 [2] 



} 



} 



color [0] *= intensity; 
color [1] *= intensity; 
color [2] *= intensity; 



/* negated in renderman 
lpos[0] = from[0] -to [0] ; 
lpos [1] = from [1] -to [1] ; 



*/ 



lpos [2] = from [2] -to [2] ; 
lpos[3] =0.; 



light_set (zero, color, color, lpos, 0 . , 180 . ) ; 

return NULL; 

} 

void rile_pointlight (unsigned char *PC) 

{ 

RtFloat *d = (RtFloat *) PC- 
float intensity = 1 . ; 
float color [4] ; 

float from [4] = { 0., 0., 0., 1. }; 
float zero [4] = {0., 0., 0., 0. }; 

intensity = *d++; 
color [0] = *d++; 
color [1] = *d++; 
color [2] = *d++; 
color [3] = 1.; 
from[0] = *d++; 
from[l] = *d++; 
from [2] = *d++; 
from [3] = 1.; 

color [0] *= intensity; 
color [1] *= intensity; 
color [2] *= intensity; 

light_set (zero, color, color, from, 1 . , 180 . ) ; 

} 

/*ARGSUSED*/ 

void * rilc_pointlight (char *name, Rtlnt n, RtToken tokens [], RtPointer 

values [ ] ) 
{ 

RtFloat *t; 
int i, size; 

size = 7*sizeof (RtFloat) ; 

t = (RtFloat *) ri_malloc (size) ; 

if (t == NULL) 

return NULL; 



t[0] 




1 . 


t[l] 




1 . 


t[2] 




1 . 


t[3] 




1 . 


t[4] 




0 . 


t[5] 




0 . 


t[6] 




0 . 


for ( 


i= 


= 0; 



if( tokens [i] ==RI_INTENSITY ) { 
t[0] = * (float *)values[i]; 
} else if( tokens [i]==RI_LIGHTCOLOR ) { 



t [1] = ( (float *) va 

t [2] = ( (float *) va 

t [3] = ( (float *) va 

} else if( tokens [i]==R 

t [4] = ( (float *) va 

t [5] = ( (float *) va 

t [6] = ( (float *) va 

} 



ues [i] ) [0] ; 
ues [i] ) [1] ; 
ues[i]) [2]; 
_FR0M ) { 
ues[i]) [0]; 
ues [i] ) [1] ; 
ues[i]) [2]; 



} 



return ( (void *)t ); 



/*ARGSUSED*/ 

void * riim_pointlight (cha 

values [ ] ) 
{ 

float color [4] ; 
float intensity = 1 . ; 
float from [4] = { 0., 0 
int i; 

float zero [4] 



*name, Rtlnt n, RtToken tokens [], RtPointer 



= { 0 . , 0 . , 0 . , 0 . } ; 



intensity = 1 . ; 
color [0] = 1.; 
color[l] = 1 
color[2] = 1 
color[3] = 1 
from[0] = 0. 
from[l] = 0. 
from [2] = 0. 
from [3] = 1. 



for( i=0; i<n; i++ ) { 

if( tokens [i] ==RI_INTENSITY ) { 

intensity = * (float *) values [ i ] ; 
} else if( tokens [i]==RI_LIGHTCOLOR ) { 

color[0] = ((float *) values [ i ])[ 0 ] 

color[l] = ((float *) values [ i ])[ 1 ] 

color[2] = ((float *) values [ i ])[ 2 ] 
} else if( tokens [i]==RI_FROM ) { 

from[0] = ((float *) values [ i ])[ 0 ] ; 

from[l] = ((float *) values [ i ])[ 1 ] ; 

from [2] = ((float *) values [ i ])[ 2 ] ; 



} 



} 



color [0] *= intensity; 
color [1] *= intensity; 
color [2] *= intensity; 

light_set (zero, color, color, from, 1 . , 180 . ) ; 

return NULL; 



void rile_spotlight (unsigned char *PC) 



{ 

RtFloat *d = (RtFloat *) PC- 
float lpos[4], color [4]; 
float intensity = 1 . ; 

float coneangle = 30., conedeltaangle = 5.; 
float beamdistribution = 2 . ; 
float from [4] = { 0., 0., 0., 1. }; 
float to [3] = { 0., 0., 1. }; 
float zero [4] = {0., 0., 0., 0. }; 

intensity = *d++; 

color [0] = *d++; 

color [1] = *d++; 

color [2] = *d++; 

color [3] = 1.; 

from[0] = *d++; 

from[l] = *d++; 

from [2] = *d++; 

to[0] = *d++; 

to[l] = *d++; 

to [2] = *d++; 

coneangle = *d++; 

conedeltaangle = *d++; 

beamdistribution = *d++; 

color [0] *= intensity; 
color [1] *= intensity; 
color [2] *= intensity; 

lpos [0] = to [0] -from [0] ; 
lpos [1] = to [1] -from [1] ; 
lpos [2] = to [2] -from [2] ; 
lpos [3] =1.; 

light_set (zero, color, color, from, 1 . , coneangle) ; 

spotlight_set (lpos, beamdistribution, conedeltaangle) ; 

} 

/*ARGSUSED*/ 

void * rilc_spotlight (char *name, Rtlnt n, RtToken tokens [], RtPointer 

values [ ] ) 
{ 

RtFloat *t; 
int i, size; 

size = 13*sizeof (RtFloat) ; 

t = (RtFloat *) ri_malloc (size) ; 

if (t == NULL) 

return NULL; 

t[0] = 1.; 

t[l] = 1.; 

t[2] = 1.; 

t[3] = 1.; 

t[4] = 0.; 

t[5] = 0.; 

t[6] = 0.; 



t[7] 
t[8] 
t[9] 
t[10] 



0 . ; 
0 . ; 
1 . ; 
= 30.; 



t[ll] = 5.; 
t[12] = 2.; 

for( i=0; i<n; i++ ) { 

if( tokens [i]==RI_INTENSITY ) { 
t[0] = * (float *)values[i]; 
} else if( tokens [i]==RI_LIGHTCOLOR ) { 
t[l] = ((float *) values [i] ) [0] ; 
t[2] = ((float *) values [i] ) [1] ; 
t[3] = ((float *) values [i] ) [2] ; 
} else if( tokens [i] ==RI_FROM ) { 
t[4] = ((float *) values [i] ) [0] ; 
t[5] = ((float *) values [i] ) [1] ; 
t[6] = ((float *) values [i] ) [2] ; 
} else if( tokens [i]==RI_TO ) { 

t[7] = ((float *) values [i] ) [0] ; 
t[8] = ((float *) values [i] ) [1] ; 
t[9] = ((float *) values [i] ) [2] ; 
} else if( tokens [i]==RI_CONEANGLE ) { 

t[10] = (* (float *) values [i] ) *180 ./M_PI; 
} else if( tokens [i] ==RI_CONEDELTAANGLE ) { 

t[ll] = (* (float *) values [i] ) *180 ./M_PI; 
} else if( tokens [i] ==RI_BEAMDISTRIBUTION ) { 
t[12] = * (float *)values[i]; 

} 

} 

return ( (void *)t ) ; 



/*ARGSUSED*/ 

void * riim_spotlight (char *name, Rtlnt n, RtToken tokens [], RtPointer 

values [ ] ) 
{ 

float lpos[4], color[4]; 
float intensity = 1 . ; 

float coneangle = 30., conedeltaangle = 5.; 
float beamdistribution = 2 . ; 
float from [4] = { 0., 0., 0., 1. }; 
float to [3] = { 0., 0., 1. }; 
int i; 

float zero [4] = {0., 0., 0., 0. }; 

intensity = 1 . ; 
color [0] = 1.; 
color [1] = 1.; 
color [2] = 1.; 
color [3] = 1.; 
from[0] = 0.; 
from[l] = 0.; 
from [2] = 0.; 
from [3] = 1.; 
to[0] = 0.; 



to[l] = 0.; 
to [2] = 1.; 
coneangle = 30.; 
conedeltaangle = 5 . ; 
beamdistribution = 2 . ; 

for( i=0; i<n; i++ ) { 

if( tokens [i]==RI_INTENSITY ) { 

intensity = * (float *) values [ i ] ; 
} else if( tokens [i]==RI_LIGHTCOLOR ) { 

color[0] = ((float *) values [ i ])[ 0 ] ; 

color[l] = ((float *) values [ i ])[ 1 ] ; 

color[2] = ((float *) values [ i ])[ 2 ] ; 
} else if( tokens [i] ==RI_FROM ) { 

from[0] = ((float *) values [ i ])[ 0 ] ; 

from[l] = ((float *) values [ i ])[ 1 ] ; 

from [2] = ((float *) values [ i ])[ 2 ] ; 
} else if( tokens [i]==RI_TO ) { 

to[0] = ((float *) values [i] ) [0] ; 

to[l] = ((float *) values [i] ) [1] ; 

to[2] = ((float *) values [i] ) [2] ; 
} else if( tokens [i] ==RI_CONEANGLE ) { 

coneangle = (* (float *) values [ i ])* 1 8 0 . /M_PI ; 
} else if( tokens [i]==RI_CONEDELTAANGLE ) { 

conedeltaangle = (* (float *) values [ i ])* 1 8 0 . /M_PI ; 
} else if( tokens [i] ==RI_BEAMDISTRIBUTION ) { 

beamdistribution = * (float *) values [ i ] ; 

} 

} 

color [0] *= intensity; 
color [1] *= intensity; 
color [2] *= intensity; 

lpos [0] = to [0] -from [0] ; 
lpos [1] = to [1] -from [1] ; 
lpos [2] = to [2] -from [2] ; 
lpos [3] =1.; 

light_set (zero, color, color, from, 1 . , coneangle) ; 

spotlight_set (lpos, beamdistribution, conedeltaangle) ; 

return NULL; 



/* XXX easily could be optimized */ 

void rile_lightshader (Shader *lite) 

{ 

/* do lighting in camera space */ 
glPushMatrix ( ) ; 
glLoadldentity ( ) ; 

if( !CurAttributes->light [lite->id] ) { 

light_off |= 0x1; 

} else { 

light_off &= ~0xl; 



} 



( !CurAttributes->light [lite->id] ) { 

/* the light is disabled, so just load a black light */ 

rilejolacklight (NULL) ; 

else { 

/* load a GL light at the light's position and draw the scene with 
that. The CI component was precomputed and will be factored in 
later. */ 

float zero[4] = { 0, 0, 0, 0 }; 

float one[4] = { I, 1, I, 1 }; 

if (lite->position [0] == 0 && lite->position [ 1 ] == 0 && 
lite->position [2] == 0 && lite->position [ 3 ] == 0) { 
/* ambient light */ 

gl Light fv (GL_LIGHT0 , GL_AMBIENT, one) ; 
gl Light fv (GL_LIGHT0 , GL_DIFFUSE, zero) ; 
gl Light fv (GL_LIGHT0 , GL_SPECULAR, zero) ; 
} else { 

gl Light fv (GL_LIGHT0 , GL_AMBIENT, zero) ; 

gl Light fv (GL_LIGHT0 , GL_DIFFUSE, one) ; 

gl Light fv (GL_LIGHT0 , GL_SPECULAR, one) ; 

gl Light fv (GL_LIGHT0 , GL_POSITION, lite->position) ; 

} 

gl Light f (GL_LIGHT0 , GL_CONSTANT_ATTENUATION, 1.); 
gl Light f (GL_LIGHT0 , GL_LINEAR_ATTENUATION, 0.); 
gl Light f (GL_LIGHT0 , GL_QUADRAT I C_ATTENUAT I ON , 0.); 
gl Light f (GL_LIGHT0 , GL_SPOT_CUTOFF, 180.); 

glEnable (GL_LIGHT0 ) ; 

if (lite->position [0] == 0 && lite->position [ 1 ] == 0 && 
lite->position [2] == 0 && lite->position [ 3 ] == 0) { 
gl Fragment Light fvSG IX (GL_FRAGMENT_LIGHT0_SGIX, GL_AMBIENT, one) ; 
gl Fragment Light fvSG IX (GL_FRAGMENT_LIGHT0_SGIX, GL_DIFFUSE, zero) ; 
gl Fragment Light fvSG IX (GL_FRAGMENT_LIGHT0_SGIX, GL_SPECULAR, zero) ; 

} else { 

gl Fragment Light fvSG IX (GL_FRAGMENT_LIGHT0_SGIX, GL_AMBIENT, zero) ; 
gl Fragment Light fvSG IX (GL_FRAGMENT_LIGHT0_SGIX, GL_DIFFUSE, one) ; 
gl Fragment Light fvSG IX (GL_FRAGMENT_LIGHT0_SGIX, GL_SPECULAR, one) ; 
glFragmentLightfvSGIX (GL_FRAGMENT_LIGHT0_SGIX, GL_POSITION, 
lite->position) ; 

} 

glFragmentLightfSGIX (GL_FRAGMENT_LIGHT0_SGIX, 

GL_CONSTANT_ATTENUATION, 1 . ) ; 
glFragmentLightfSGIX (GL_FRAGMENT_LIGHT0_SGIX, 

GL_LINEAR_ATTENUATION, 0 . ) ; 
glFragmentLightfSGIX (GL_FRAGMENT_LIGHT0_SGIX, 

GL_QUADRAT I C_ATTENUAT I ON , 0 . ) ; 
glFragmentLightfSGIX (GL_FRAGMENT_LIGHT0_SGIX, GL_SPOT_CUTOFF, 180.) ; 

glEnable (GL_FRAGMENT_LIGHT0_SGIX) ; 



glPopMatrix ( ) ; 

} 



/* shading and lighting functions: for now ambient, diffuse, and specular 
are implemented assuming the gl lighting is satisfactory. eventually 
a different mechanism will be put in place for general light shaders . 



ambient ( ) 
diffuse (n) 

specular (n, v, roughness) 
phong (n, v, size) 
trace (p, r) 



Temp *PsTemp; 

Temp *LTemp; 

float CurLitePos [4] ; 

RtMatrix light2camera; 

RtMatrix camera21ight; 

static void executeLightShader ( Shader *lite) 
{ 

extern void invert_matrix (RtMatrix a, RtMatrix m) ; 
extern void copy_matrix (RtMatrix a, RtMatrix m) ; 
DrawOp drop; 

CurLitePos [0] = 0; 
CurLitePos [1] = 0; 
CurLitePos [2] = 0; 
CurLitePos [3] = 0; 
LTemp = lite->L; 

copy_matrix (lite->m, light2camera) ; 
invert_matrix (light2camera, camera21ight) ; 

/* run the p-code */ 

shader_parse (lite->name, NULL, NULL, lite->args) ; 



lite->position [ 0 ] 
lite->position [ 1 ] 
lite->position [2] 
lite->position [3] 



= CurLitePos [0] 
= CurLitePos [1] 
= CurLitePos [2] 
= CurLitePos [3] 



_reg_store (lite->Cl, rgba_rgba) ; 



/* set alpha to zero for next guy to do looping */ 
drop . cscale [ 0 ] = 1 . ; 
drop . cscale [ 1 ] = 1 . ; 
drop . cscale [2 ] = 1 . ; 
drop. cscale [3] = 0 . ; 

glColorMask(0, 0,0,1); 

drop. op = ps_flatpoly; 

fb_load ( &drop) ; 

glColorMaskd, 1,1,1); 



static Shader *CurLights = NULL; 
static Shader *CurLight = NULL; 

void lt_run_lightshaders (Node *scene) 

{ 

/* run each lightshader and initialize their L and CI temporaries and 
fill in the position fields with the position or direction */ 

extern char * cur_onoff; 

Shader *lite = CurLights; 
Node *node = scene; 
DrawOp drop; 

PsTemp = new_temp(); 

/* need to enable stencil and set it to 0x1 to allow for conditionals */ 

drop . cscale [ 0 ] = 1.; 

drop . cscale [ 1 ] = 1.; 

drop . cscale [2 ] = 1.; 

drop. cscale [3] = 1.; 

drop. op = ps_flatpoly; 

glColorMask(0, 0,0,0); 
glClear( GL_STENCIL_BUFFER_BIT ); 
glStencilFunc (GL_ALWAYS, 0x1, 0x1); 
glStencilOp (GL_REPLACE, GL_KEEP, GL_REPLACE) ; 
glEnable (GL_STENCIL_TEST) ; 

fb_load ( &drop) ; 

glStencilFunc (GL_EQUAL, 0x1, 0x1); 
glStencilOp (GL_KEEP, GL_KEEP, GL_KEEP) ; 
glColorMaskd, 1,1,1); 

/* load Ps, in camera space */ 

drop.lut = lut [LUT_3DEYE] ; 

drop.nscale = 128.; 
drop. cscale [0] = 128.; 
drop. cscale [1] = 128.; 
drop. cscale [2] = 128.; 

drop. op = ps_tex3deye; 

glColorMask (1, 1,1,0); 
while (node) { 

cur_onoff = node-Might; 



drop.dlop = node->dlist->list; 
drop.att = &node->att; 
fb_load ( &drop) ; 

node = node->next; 

} 

glColorMask (1, 1,1,1); 

reg_store (PsTemp, rgba_rgba) ; 

while ( lite ) { 

if ( !lite->L ) 

lite->L = new_temp(); 
if ( !lite->Cl ) 

lite->Cl = new_temp(); 

/* Now we can run the light shader. It should store CI and L in 

those fields in its struct as they're computed */ 
if( ! strcmp (lite->name, "areafield") ) { 
executeLightShader (lite) ; 

} 

lite = lite->next; 



free_temp (PsTemp) ; 
PsTemp = NULL; 

/* clear the framebuffer, since otherwise we leave behind light source 

cruft in the pixels that don't have any geometry covering them */ 
glClear (GL_COLOR_BUFFER_BIT) ; 

/* turn off stencil */ 
glDisable (GL_STENCIL_TEST) ; 

} 

static void apply_light ( Shader *lite, DrawOp *drop) 
{ 

/* XXX must restore current light state before each light */ 
ri_setattributes (drop->att, NULL) ; 

CurLight = lite; 

if ( ! strcmp (lite->name, "areafield") ) { 

extern void multipass_area_light ( Shader *lite, DrawOp *drop) ; 

/* hack for area lights */ 

light_disable () ; 

multipass_area_light (lite, drop) ; 
} else { 

DrawOp cldrop; 

light_enable ( ) ; 

rile_lightshader (lite) ; 

drop->op (drop) ; 
light_disable ( ) ; 

cldrop . cscale [ 0 ] = 1; 
cldrop . cscale [ 1 ] = 1; 
cldrop . cscale [2 ] = 1; 



cldrop . cscale [3] = 1; 

cldrop.op = ps_texpoly; 

cldrop. temp = lite->Cl; 
cldrop. lut = lite->Cl->id; 
fb_mul (&cldrop) ; 

} 

} 

static void lt_light (DrawOp *drop) 

{ 

Shader *lite = CurLights; 

if( !lite ) { 
return; 

} 

apply_light (lite, drop); 
lite = lite->next; 

if( lite ) { 

Temp *result = new_temp(); 
DrawOp resultDrop; 

resultDrop . cscale [ 0 ] = 1; 

resultDrop . cscale [ 1 ] = 1; 

resultDrop . cscale [2 ] = 1; 

resultDrop. cscale [3] = 1; 

reg_store (result, rgba_rgba) ; 

while ( lite ) { 

apply_light (lite, drop); 

resultDrop . op = ps_texpoly; 

resultDrop . temp = result; 
resultDrop . lut = result->id; 

fb_add (&resultDrop) ; 

reg_store (result, rgba_rgba) ; 

lite = lite->next; 

} 

free_temp (result) ; 

} 

light_disable () ; 

} 

void lt_lighting (DrawOp *drop) 

{ 

drop->op = ps_geometry; 

lt_light (drop) ; 

} 

void lt_lightnorm (DrawOp *drop) 

{ 

glTexParameteri ( GL_N0RMAL_TEXTURE_2 D_SG I X , GL_TEXTURE_MIN_FILTER, GL_LINEAR) ; 



glCopyTexImage2DEXT ( GL_N0RMAL_TEXTURE_2 D_SG I X , 0 , GL_RGBA, 0, 

YRes-CurOptions->vres, CurOptions->hres , CurOptions->vres , 0) ; 

drop->op = ps_pro j texeyenorm; 

lt_light (drop) ; 

} 



void init_lightshaders (void) 
{ 

extern void * rilc_areaf ieldlight (char *name, Rtlnt n, RtToken tokens [], 

RtPointer values []); 

/* install_lightshader ( "ambientlight" , rilc_ambientlight) ; 

install_lightshader ( "distant light" , rilc_distant light) ; 

install_lightshader ( "point light" , rilc_point light) ; 

install_lightshader ( "spotlight" , rilc_spot light) ; 

*/ 

shader_install ( "areaf ield" , &lightshader , rilc_areaf ieldlight) ; 

} 

RtLightHandle RiLightSourceV (char *name, 

Rtlnt n, RtToken tokens [], RtPointer values []) 

{ 

Shader *1, *s; 

s = shader_lookup (name, &lightshader) ; 

if( s==NULL ) { 

fprintf ( stderr, "unknown light shader %s\n" , name) ; 

return NULL; 

} 

1 = (Shader *) malloc (sizeof (Shader) ) ; 
l->name = (char *) malloc (strlen (name) +1) ; 
strcpy (l->name, name) ; 
l->id = LightNumber++; 



CurAttributes->light [l->id] = 1; 
l->shader = s->shader; 

l->args = s->shader (name, n, tokens, values) ; 
1->L = NULL; 
1->C1 = NULL; 
l->next = NULL; 

glMatrixMode (GL_MODELVIEW) ; 
if (RenderState & STATE_WORLD) { 
/* inside worldbegin */ 

glGetFloatv (GL_MODELVIEW_MATRIX, (GLfloat *)l->m); 
glPushMatrix () ; 

glLoadMatrixf ( (GLfloat *) CurOptions->worldtocamera) ; 
glMultMatrixf ( (GLfloat *)l->m); 

glGetFloatv (GL_MODELVIEW_MATRIX, (GLfloat *)l->m); 
glPopMatrix () ; 
} else { 

/* before worldbegin */ 

glGetFloatv (GL_MODELVIEW_MATRIX, (GLfloat *)l->m); 

} 

/* add light to current list */ 
if( CurLights !=NULL ) { 

CurLights->last->next = 1; 

CurLights->last = 1; 
} else { 

CurLights = 1; 

CurLights->last = 1; 

} 

return ( (RtLightHandle) 1) ; 

} 

RtLightHandle RiLightSource (char *name, ...) 
{ 

RtLightHandle 1; 

RE AD_P ARAME T E RL I S T (name) ; 

1 = RiLightSourceV (name, n, tokens, values) ; 
FREE_PARAMETERLI ST ; 
return ( 1 ) ; 

} 

/* in the renderman interface, if area light sources are not supported, 
the effect is to be that of a point light source. therefore, the 
area light source calls are simply wrappers for the light source 
call. we may support area lights in the future. */ 

RtLightHandle RiAreaLightSourceV (char *name, Rtlnt n, 

RtToken tokens [], RtPointer values []) 

{ 

return ( RiLightSourceV (name, n, tokens, values) ); 

} 



RtLightHandle RiAreaLightSource (char *name, ...) 
{ 

RtLightHandle 1; 

RE AD_P ARAME T E RL I S T (name) ; 

1 = RiAreaLightSourceV (name, n, tokens, values) ; 
FREE_PARAMETERLI ST ; 
return ( 1 ) ; 

} 

void light_restore ( ShaderList *list, int remove) 

{ 

ShaderList *1; 

while ( list ) { 

CurAttributes->light [ list->shader->id] = 

! CurAttributes-Might [ list->shader->id] ; 
if( CurLight==list->shader ) { 

rile_lightshader ( list->shader ) ; 

} 

if( remove ) { 

1 = list->next; 

free (list) ; 

list = 1; 
} else { 

list = list->next; 

} 

} 

} 

void rile_Illuminate (unsigned char *PC) 

{ 

RtFloat *t = (RtFloat *)PC; 
RtLightHandle *h = (RtLightHandle *)t; 
Shader *1 = (Shader *) (*h); 
int onoff = (int) (t [1] ) ; 
ShaderList *n; 

if( l!=CurLight ) { 
return; 

} 

if( onof f==RI_TRUE ) { 

if( CurAttributes-Might [l->id] ) { 
return; 

} 

CurAttributes-Might [l->id] = 1; 
} else { 

if( ! CurAttributes-Might [1-Md] ) { 
return; 

} 

CurAttributes-Might [1-Md] = 0; 

} 



rile_lightshader (1) ; 

n = (ShaderList *) malloc (sizeof (ShaderList) ) ; 
n->shader = 1; 
n->next = NULL; 

if( CurAttributes->illuminate==NULL ) { 

CurAttributes->illuminate = n; 

CurAttributes->illuminate->last = n; 
} else { 

CurAttributes->illuminate->last->next = n; 
CurAttributes->illuminate->last = n; 

} 



void rilc_Illuminate (RtLightHandle light, RtBoolean onoff) 

{ 

Shader *1 = (Shader *) light; 
RtFloat *t; 
RtLightHandle *h; 
ShaderList *n; 

if( onoff==RI_TRUE ) { 

if( CurAttributes->light [l->id] ) { 
return; 

} 

CurAttributes->light [l->id] = 1; 
} else { 

if( !CurAttributes->light [l->id] ) { 
return; 

} 

CurAttributes-Might [l->id] = 0; 

} 



t = (RtFloat *) dlist_append (CurDlist, rile_Illuminate, 2*sizeof (RtFloat) ) ; 

if (t == NULL) 
return; 

h = (RtLightHandle *)t; 
*h = light; 
t[l] = onoff; 

n = (ShaderList *) malloc (sizeof (ShaderList) ) ; 
n->shader = (Shader *) light; 
n->next = NULL; 

if( CurAttributes->illuminate==NULL ) { 

CurAttributes-Mlluminate = n; 

CurAttributes->illuminate->last = n; 
} else { 

CurAttributes->illuminate->last->next = n; 
CurAttributes->illuminate->last = n; 

} 

} 

void riim_Illuminate (RtLightHandle light, RtBoolean onoff) 

{ 



Shader *1 = (Shader *) light; 



if( onoff==RI_TRUE ) { 

if( CurAttributes-Might [1-Md] ) { 
return; 

} 

CurAttributes-Might [l->id] = 1; 
} else { 

if( ! CurAttributes-Might [l->id] ) { 
return; 

} 

CurAttributes-Might [1-Md] = 0; 

} 

} 

RtVoid Rillluminate (RtLightHandle light, RtBoolean onoff) 
{ 

JumpCur-Mlluminate (light, onoff) ; 

} 

/* any lights that have been created within a worldbegin-end block are 
deleted on the worldend call. likewise for those lights defined 
within a f ramebegin-end block. because we can have at most one 
world block active within one frame block (no multiple nesting) , 
the lights will be defined in sequential blocks: outside frame-> 
outside world-Mnside world. the world lights will necessarily be 
deleted before the frame lights. this function deletes all lights 
in a linked list starting with the light passed in. */ 

void deletelights (Shader M) 
{ 

Shader *s; 

while ( 1!=NULL ) { 

Rillluminate ( (RtLightHandle) 1,RI_FALSE) ; 
s = l->next; 
free (l->name) ; 

if (1->L != NULL) 

free_temp (1->L) ; 
if (1->C1 != NULL) 

free_temp (1->C1) ; 
free (1) ; 
1 = s; 

} 

} 

/* when the attributes are popped, we must return the lights to an 
on-off position that they held before the attributes were 
pushed. here we loop over all lights; we could optimize this 
function pretty easily. */ 

/*ARGSUSED*/ 

void setlights (Rtlnt v) 
{ 

#if 0 

while ( 1!=NULL ) { 



if( v&(l«l->id) ) { 

Rillluminate ( (RtLightHandle) 1,RI_TRUE) ; 
} else { 

Rillluminate ( (RtLightHandle) 1,RI_FALSE) ; 

} 

1 = l->next; 



static Shader *curLight; 

static void load_light_variable (Temp *temp) 
{ 

DrawOp drop; 

drop . cscale [ 0 ] = 1 . ; 
drop . cscale [ 1 ] = 1 . ; 
drop . cscale [2 ] = 1 . ; 
drop. cscale [3] = 1 . ; 

drop. op = ps_texpoly; 

drop. temp = temp; 
drop.lut = drop . temp->id; 
fb_load ( &drop) ; 



int lt_start_illuminance (Temp *L, Temp *C1) 

{ 

curLight = CurLights; 

if( ! curLight ) { 

return 0; 
} else { 

load_light_variable (curLight->L) ; 

reg_store(L, rgba_rgba) ; 

load_light_variable (curLight->Cl) ; 

reg_store (CI, rgba_rgba) ; 

return 1; 

} 



int lt_next_light (Temp *L, Temp *C1) 

{ 

curLight = curLight->next; 

if( ! curLight ) { 

return 0; 
} else { 

load_light_variable (curLight->L) ; 

reg_store(L, rgba_rgba) ; 

load_light_variable (curLight->Cl) ; 

reg_store (CI, rgba_rgba) ; 

return 1; 

} 



